<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span id="local-6989586621679070070"><span id="local-6989586621679070071"></span></span><span class="hs-pragma">{-# OPTIONS -fno-warn-unused-imports #-}</span><span>
</span><span id="line-2"></span><span class="hs-pragma">{-# LANGUAGE Trustworthy #-}</span><span>
</span><span id="line-3"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Data.Time.Clock.Internal.NominalDiffTime</span><span>
</span><span id="line-4"></span><span>    </span><span class="hs-special">(</span><span>
</span><span id="line-5"></span><span>    </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier">NominalDiffTime</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-6"></span><span>    </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#secondsToNominalDiffTime"><span class="hs-identifier">secondsToNominalDiffTime</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-7"></span><span>    </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#nominalDiffTimeToSeconds"><span class="hs-identifier">nominalDiffTimeToSeconds</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-8"></span><span>    </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#nominalDay"><span class="hs-identifier">nominalDay</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-9"></span><span>    </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-10"></span><span>
</span><span id="line-11"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Typeable.html#"><span class="hs-identifier">Data.Typeable</span></a></span><span>
</span><span id="line-12"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Data.html#"><span class="hs-identifier">Data.Data</span></a></span><span>
</span><span id="line-13"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#"><span class="hs-identifier">Data.Fixed</span></a></span><span>
</span><span id="line-14"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html"><span class="hs-identifier">Data.Time.Calendar.Days</span></a></span><span>
</span><span id="line-15"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../deepseq/src/Control.DeepSeq.html#"><span class="hs-identifier">Control.DeepSeq</span></a></span><span>
</span><span id="line-16"></span><span>
</span><span id="line-17"></span><span>
</span><span id="line-18"></span><span class="hs-comment">-- | This is a length of time, as measured by UTC.</span><span>
</span><span id="line-19"></span><span class="hs-comment">-- It has a precision of 10^-12 s.</span><span>
</span><span id="line-20"></span><span class="hs-comment">--</span><span>
</span><span id="line-21"></span><span class="hs-comment">-- Conversion functions will treat it as seconds.</span><span>
</span><span id="line-22"></span><span class="hs-comment">-- For example, @(0.010 :: NominalDiffTime)@ corresponds to 10 milliseconds.</span><span>
</span><span id="line-23"></span><span class="hs-comment">--</span><span>
</span><span id="line-24"></span><span class="hs-comment">-- It ignores leap-seconds, so it's not necessarily a fixed amount of clock time.</span><span>
</span><span id="line-25"></span><span class="hs-comment">-- For instance, 23:00 UTC + 2 hours of NominalDiffTime = 01:00 UTC (+ 1 day),</span><span>
</span><span id="line-26"></span><span class="hs-comment">-- regardless of whether a leap-second intervened.</span><span>
</span><span id="line-27"></span><span class="hs-keyword">newtype</span><span> </span><span id="NominalDiffTime"><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-var">NominalDiffTime</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MkNominalDiffTime"><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span></span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679070057"><span id="local-6989586621679070062"><span class="annot"><span class="annottext">NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
(NominalDiffTime -&gt; NominalDiffTime -&gt; Bool)
-&gt; (NominalDiffTime -&gt; NominalDiffTime -&gt; Bool)
-&gt; Eq NominalDiffTime
forall a. (a -&gt; a -&gt; Bool) -&gt; (a -&gt; a -&gt; Bool) -&gt; Eq a
/= :: NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
$c/= :: NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
== :: NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
$c== :: NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">Eq</span></span></span></span><span class="hs-special">,</span><span id="local-6989586621679070024"><span id="local-6989586621679070028"><span id="local-6989586621679070032"><span id="local-6989586621679070036"><span id="local-6989586621679070040"><span id="local-6989586621679070044"><span id="local-6989586621679070049"><span class="annot"><span class="annottext">Eq NominalDiffTime
Eq NominalDiffTime
-&gt; (NominalDiffTime -&gt; NominalDiffTime -&gt; Ordering)
-&gt; (NominalDiffTime -&gt; NominalDiffTime -&gt; Bool)
-&gt; (NominalDiffTime -&gt; NominalDiffTime -&gt; Bool)
-&gt; (NominalDiffTime -&gt; NominalDiffTime -&gt; Bool)
-&gt; (NominalDiffTime -&gt; NominalDiffTime -&gt; Bool)
-&gt; (NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime)
-&gt; (NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime)
-&gt; Ord NominalDiffTime
NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
NominalDiffTime -&gt; NominalDiffTime -&gt; Ordering
NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime
forall a.
Eq a
-&gt; (a -&gt; a -&gt; Ordering)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; Bool)
-&gt; (a -&gt; a -&gt; a)
-&gt; (a -&gt; a -&gt; a)
-&gt; Ord a
min :: NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime
$cmin :: NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime
max :: NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime
$cmax :: NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime
&gt;= :: NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
$c&gt;= :: NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
&gt; :: NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
$c&gt; :: NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
&lt;= :: NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
$c&lt;= :: NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
&lt; :: NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
$c&lt; :: NominalDiffTime -&gt; NominalDiffTime -&gt; Bool
compare :: NominalDiffTime -&gt; NominalDiffTime -&gt; Ordering
$ccompare :: NominalDiffTime -&gt; NominalDiffTime -&gt; Ordering
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Ord</span></span></span></span></span></span></span></span></span><span class="hs-special">,</span><span id="local-6989586621679069983"><span id="local-6989586621679069985"><span id="local-6989586621679069987"><span id="local-6989586621679069989"><span id="local-6989586621679069991"><span id="local-6989586621679069993"><span id="local-6989586621679069995"><span id="local-6989586621679069997"><span id="local-6989586621679069999"><span id="local-6989586621679070001"><span id="local-6989586621679070003"><span id="local-6989586621679070005"><span id="local-6989586621679070010"><span id="local-6989586621679070016"><span class="annot"><span class="annottext">Typeable NominalDiffTime
Typeable NominalDiffTime
-&gt; (forall (c :: * -&gt; *).
    (forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
    -&gt; (forall g. g -&gt; c g) -&gt; NominalDiffTime -&gt; c NominalDiffTime)
-&gt; (forall (c :: * -&gt; *).
    (forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
    -&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c NominalDiffTime)
-&gt; (NominalDiffTime -&gt; Constr)
-&gt; (NominalDiffTime -&gt; DataType)
-&gt; (forall (t :: * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d. Data d =&gt; c (t d)) -&gt; Maybe (c NominalDiffTime))
-&gt; (forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d e. (Data d, Data e) =&gt; c (t d e))
    -&gt; Maybe (c NominalDiffTime))
-&gt; ((forall b. Data b =&gt; b -&gt; b)
    -&gt; NominalDiffTime -&gt; NominalDiffTime)
-&gt; (forall r r'.
    (r -&gt; r' -&gt; r)
    -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; NominalDiffTime -&gt; r)
-&gt; (forall r r'.
    (r' -&gt; r -&gt; r)
    -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; NominalDiffTime -&gt; r)
-&gt; (forall u.
    (forall d. Data d =&gt; d -&gt; u) -&gt; NominalDiffTime -&gt; [u])
-&gt; (forall u.
    Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; NominalDiffTime -&gt; u)
-&gt; (forall (m :: * -&gt; *).
    Monad m =&gt;
    (forall d. Data d =&gt; d -&gt; m d)
    -&gt; NominalDiffTime -&gt; m NominalDiffTime)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d)
    -&gt; NominalDiffTime -&gt; m NominalDiffTime)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d)
    -&gt; NominalDiffTime -&gt; m NominalDiffTime)
-&gt; Data NominalDiffTime
NominalDiffTime -&gt; DataType
NominalDiffTime -&gt; Constr
(forall b. Data b =&gt; b -&gt; b) -&gt; NominalDiffTime -&gt; NominalDiffTime
forall a.
Typeable a
-&gt; (forall (c :: * -&gt; *).
    (forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
    -&gt; (forall g. g -&gt; c g) -&gt; a -&gt; c a)
-&gt; (forall (c :: * -&gt; *).
    (forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
    -&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c a)
-&gt; (a -&gt; Constr)
-&gt; (a -&gt; DataType)
-&gt; (forall (t :: * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d. Data d =&gt; c (t d)) -&gt; Maybe (c a))
-&gt; (forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d e. (Data d, Data e) =&gt; c (t d e)) -&gt; Maybe (c a))
-&gt; ((forall b. Data b =&gt; b -&gt; b) -&gt; a -&gt; a)
-&gt; (forall r r'.
    (r -&gt; r' -&gt; r) -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; a -&gt; r)
-&gt; (forall r r'.
    (r' -&gt; r -&gt; r) -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; a -&gt; r)
-&gt; (forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; a -&gt; [u])
-&gt; (forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; a -&gt; u)
-&gt; (forall (m :: * -&gt; *).
    Monad m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; a -&gt; m a)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; a -&gt; m a)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; a -&gt; m a)
-&gt; Data a
forall u.
Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; NominalDiffTime -&gt; u
forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; NominalDiffTime -&gt; [u]
forall r r'.
(r -&gt; r' -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; NominalDiffTime -&gt; r
forall r r'.
(r' -&gt; r -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; NominalDiffTime -&gt; r
forall (m :: * -&gt; *).
Monad m =&gt;
(forall d. Data d =&gt; d -&gt; m d)
-&gt; NominalDiffTime -&gt; m NominalDiffTime
forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d)
-&gt; NominalDiffTime -&gt; m NominalDiffTime
forall (c :: * -&gt; *).
(forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
-&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c NominalDiffTime
forall (c :: * -&gt; *).
(forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
-&gt; (forall g. g -&gt; c g) -&gt; NominalDiffTime -&gt; c NominalDiffTime
forall (t :: * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d. Data d =&gt; c (t d)) -&gt; Maybe (c NominalDiffTime)
forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d e. (Data d, Data e) =&gt; c (t d e))
-&gt; Maybe (c NominalDiffTime)
gmapMo :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d)
-&gt; NominalDiffTime -&gt; m NominalDiffTime
$cgmapMo :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d)
-&gt; NominalDiffTime -&gt; m NominalDiffTime
gmapMp :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d)
-&gt; NominalDiffTime -&gt; m NominalDiffTime
$cgmapMp :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d)
-&gt; NominalDiffTime -&gt; m NominalDiffTime
gmapM :: forall (m :: * -&gt; *).
Monad m =&gt;
(forall d. Data d =&gt; d -&gt; m d)
-&gt; NominalDiffTime -&gt; m NominalDiffTime
$cgmapM :: forall (m :: * -&gt; *).
Monad m =&gt;
(forall d. Data d =&gt; d -&gt; m d)
-&gt; NominalDiffTime -&gt; m NominalDiffTime
gmapQi :: forall u.
Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; NominalDiffTime -&gt; u
$cgmapQi :: forall u.
Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; NominalDiffTime -&gt; u
gmapQ :: forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; NominalDiffTime -&gt; [u]
$cgmapQ :: forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; NominalDiffTime -&gt; [u]
gmapQr :: forall r r'.
(r' -&gt; r -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; NominalDiffTime -&gt; r
$cgmapQr :: forall r r'.
(r' -&gt; r -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; NominalDiffTime -&gt; r
gmapQl :: forall r r'.
(r -&gt; r' -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; NominalDiffTime -&gt; r
$cgmapQl :: forall r r'.
(r -&gt; r' -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; NominalDiffTime -&gt; r
gmapT :: (forall b. Data b =&gt; b -&gt; b) -&gt; NominalDiffTime -&gt; NominalDiffTime
$cgmapT :: (forall b. Data b =&gt; b -&gt; b) -&gt; NominalDiffTime -&gt; NominalDiffTime
dataCast2 :: forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d e. (Data d, Data e) =&gt; c (t d e))
-&gt; Maybe (c NominalDiffTime)
$cdataCast2 :: forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d e. (Data d, Data e) =&gt; c (t d e))
-&gt; Maybe (c NominalDiffTime)
dataCast1 :: forall (t :: * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d. Data d =&gt; c (t d)) -&gt; Maybe (c NominalDiffTime)
$cdataCast1 :: forall (t :: * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d. Data d =&gt; c (t d)) -&gt; Maybe (c NominalDiffTime)
dataTypeOf :: NominalDiffTime -&gt; DataType
$cdataTypeOf :: NominalDiffTime -&gt; DataType
toConstr :: NominalDiffTime -&gt; Constr
$ctoConstr :: NominalDiffTime -&gt; Constr
gunfold :: forall (c :: * -&gt; *).
(forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
-&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c NominalDiffTime
$cgunfold :: forall (c :: * -&gt; *).
(forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
-&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c NominalDiffTime
gfoldl :: forall (c :: * -&gt; *).
(forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
-&gt; (forall g. g -&gt; c g) -&gt; NominalDiffTime -&gt; c NominalDiffTime
$cgfoldl :: forall (c :: * -&gt; *).
(forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
-&gt; (forall g. g -&gt; c g) -&gt; NominalDiffTime -&gt; c NominalDiffTime
</span><a href="../../base/src/Data.Data.html#Data"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Data</span></a></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/Data.Typeable.Internal.html#Typeable"><span class="hs-identifier hs-type">Typeable</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-28"></span><span>
</span><span id="line-29"></span><span class="hs-comment">-- | Create a 'NominalDiffTime' from a number of seconds.</span><span>
</span><span id="line-30"></span><span class="hs-comment">--</span><span>
</span><span id="line-31"></span><span class="hs-comment">-- @since 1.9.1</span><span>
</span><span id="line-32"></span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#secondsToNominalDiffTime"><span class="hs-identifier hs-type">secondsToNominalDiffTime</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span><span>
</span><span id="line-33"></span><span id="secondsToNominalDiffTime"><span class="annot"><span class="annottext">secondsToNominalDiffTime :: Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#secondsToNominalDiffTime"><span class="hs-identifier hs-var hs-var">secondsToNominalDiffTime</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span>
</span><span id="line-34"></span><span>
</span><span id="line-35"></span><span class="hs-comment">-- | Get the seconds in a 'NominalDiffTime'.</span><span>
</span><span id="line-36"></span><span class="hs-comment">--</span><span>
</span><span id="line-37"></span><span class="hs-comment">-- @since 1.9.1</span><span>
</span><span id="line-38"></span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#nominalDiffTimeToSeconds"><span class="hs-identifier hs-type">nominalDiffTimeToSeconds</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span>
</span><span id="line-39"></span><span id="nominalDiffTimeToSeconds"><span class="annot"><span class="annottext">nominalDiffTimeToSeconds :: NominalDiffTime -&gt; Pico
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#nominalDiffTimeToSeconds"><span class="hs-identifier hs-var hs-var">nominalDiffTimeToSeconds</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069977"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069977"><span class="hs-identifier hs-var">t</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069977"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-40"></span><span>
</span><span id="line-41"></span><span class="hs-comment">-- necessary because H98 doesn't have &quot;cunning newtype&quot; derivation</span><span>
</span><span id="line-42"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../deepseq/src/Control.DeepSeq.html#NFData"><span class="hs-identifier hs-type">NFData</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span><span> </span><span class="hs-keyword">where</span><span> </span><span class="hs-comment">-- FIXME: Data.Fixed had no NFData instances yet at time of writing</span><span>
</span><span id="line-43"></span><span>    </span><span id="local-6989586621679069973"><span class="annot"><span class="annottext">rnf :: NominalDiffTime -&gt; ()
</span><a href="../../deepseq/src/Control.DeepSeq.html#rnf"><span class="hs-identifier hs-var hs-var hs-var hs-var">rnf</span></a></span></span><span> </span><span id="local-6989586621679069971"><span class="annot"><span class="annottext">NominalDiffTime
</span><a href="#local-6989586621679069971"><span class="hs-identifier hs-var">ndt</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NominalDiffTime -&gt; () -&gt; ()
</span><span class="hs-identifier hs-var">seq</span></span><span> </span><span class="annot"><span class="annottext">NominalDiffTime
</span><a href="#local-6989586621679069971"><span class="hs-identifier hs-var">ndt</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-44"></span><span>
</span><span id="line-45"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../base/src/GHC.Enum.html#Enum"><span class="hs-identifier hs-type">Enum</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-46"></span><span>    </span><span id="local-6989586621679069958"><span class="annot"><span class="annottext">succ :: NominalDiffTime -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Enum.html#succ"><span class="hs-identifier hs-var hs-var hs-var hs-var">succ</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069956"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069956"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Pico
forall a. Enum a =&gt; a -&gt; a
</span><a href="../../base/src/GHC.Enum.html#succ"><span class="hs-identifier hs-var">succ</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069956"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-47"></span><span>    </span><span id="local-6989586621679069954"><span class="annot"><span class="annottext">pred :: NominalDiffTime -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Enum.html#pred"><span class="hs-identifier hs-var hs-var hs-var hs-var">pred</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069952"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069952"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Pico
forall a. Enum a =&gt; a -&gt; a
</span><a href="../../base/src/GHC.Enum.html#pred"><span class="hs-identifier hs-var">pred</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069952"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-48"></span><span>    </span><span id="local-6989586621679069950"><span class="annot"><span class="annottext">toEnum :: Int -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Enum.html#toEnum"><span class="hs-identifier hs-var hs-var hs-var hs-var">toEnum</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="annot"><span class="annottext">(Pico -&gt; NominalDiffTime)
-&gt; (Int -&gt; Pico) -&gt; Int -&gt; NominalDiffTime
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Pico
forall a. Enum a =&gt; Int -&gt; a
</span><a href="../../base/src/GHC.Enum.html#toEnum"><span class="hs-identifier hs-var">toEnum</span></a></span><span>
</span><span id="line-49"></span><span>    </span><span id="local-6989586621679069946"><span class="annot"><span class="annottext">fromEnum :: NominalDiffTime -&gt; Int
</span><a href="../../base/src/GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var hs-var hs-var hs-var">fromEnum</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069944"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069944"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; Int
forall a. Enum a =&gt; a -&gt; Int
</span><a href="../../base/src/GHC.Enum.html#fromEnum"><span class="hs-identifier hs-var">fromEnum</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069944"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-50"></span><span>    </span><span id="local-6989586621679069940"><span class="annot"><span class="annottext">enumFrom :: NominalDiffTime -&gt; [NominalDiffTime]
</span><a href="../../base/src/GHC.Enum.html#enumFrom"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumFrom</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069939"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069939"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Pico -&gt; NominalDiffTime) -&gt; [Pico] -&gt; [NominalDiffTime]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; [Pico]
forall a. Enum a =&gt; a -&gt; [a]
</span><a href="../../base/src/GHC.Enum.html#enumFrom"><span class="hs-identifier hs-var">enumFrom</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069939"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-51"></span><span>    </span><span id="local-6989586621679069936"><span class="annot"><span class="annottext">enumFromThen :: NominalDiffTime -&gt; NominalDiffTime -&gt; [NominalDiffTime]
</span><a href="../../base/src/GHC.Enum.html#enumFromThen"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumFromThen</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069935"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069935"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069934"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069934"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Pico -&gt; NominalDiffTime) -&gt; [Pico] -&gt; [NominalDiffTime]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Pico -&gt; [Pico]
forall a. Enum a =&gt; a -&gt; a -&gt; [a]
</span><a href="../../base/src/GHC.Enum.html#enumFromThen"><span class="hs-identifier hs-var">enumFromThen</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069935"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069934"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-52"></span><span>    </span><span id="local-6989586621679069931"><span class="annot"><span class="annottext">enumFromTo :: NominalDiffTime -&gt; NominalDiffTime -&gt; [NominalDiffTime]
</span><a href="../../base/src/GHC.Enum.html#enumFromTo"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumFromTo</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069930"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069930"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069929"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069929"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Pico -&gt; NominalDiffTime) -&gt; [Pico] -&gt; [NominalDiffTime]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Pico -&gt; [Pico]
forall a. Enum a =&gt; a -&gt; a -&gt; [a]
</span><a href="../../base/src/GHC.Enum.html#enumFromTo"><span class="hs-identifier hs-var">enumFromTo</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069930"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069929"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-53"></span><span>    </span><span id="local-6989586621679069926"><span class="annot"><span class="annottext">enumFromThenTo :: NominalDiffTime
-&gt; NominalDiffTime -&gt; NominalDiffTime -&gt; [NominalDiffTime]
</span><a href="../../base/src/GHC.Enum.html#enumFromThenTo"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumFromThenTo</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069925"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069925"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069924"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069924"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069923"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069923"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Pico -&gt; NominalDiffTime) -&gt; [Pico] -&gt; [NominalDiffTime]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Pico -&gt; Pico -&gt; [Pico]
forall a. Enum a =&gt; a -&gt; a -&gt; a -&gt; [a]
</span><a href="../../base/src/GHC.Enum.html#enumFromThenTo"><span class="hs-identifier hs-var">enumFromThenTo</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069925"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069924"><span class="hs-identifier hs-var">b</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069923"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-54"></span><span>
</span><span id="line-55"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679069918"><span id="local-6989586621679069921"><span class="annot"><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-56"></span><span>    </span><span id="local-6989586621679069914"><span class="annot"><span class="annottext">show :: NominalDiffTime -&gt; String
</span><a href="../../base/src/GHC.Show.html#show"><span class="hs-identifier hs-var hs-var hs-var hs-var">show</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069912"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069912"><span class="hs-identifier hs-var">t</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; Pico -&gt; String
forall {k} (a :: k). HasResolution a =&gt; Bool -&gt; Fixed a -&gt; String
</span><a href="../../base/src/Data.Fixed.html#showFixed"><span class="hs-identifier hs-var">showFixed</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069912"><span class="hs-identifier hs-var">t</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String -&gt; ShowS
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;s&quot;</span></span><span>
</span><span id="line-57"></span><span>
</span><span id="line-58"></span><span class="hs-comment">-- necessary because H98 doesn't have &quot;cunning newtype&quot; derivation</span><span>
</span><span id="line-59"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../base/src/GHC.Num.html#Num"><span class="hs-identifier hs-type">Num</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-60"></span><span>    </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069899"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069899"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679069898"><span class="annot"><span class="annottext">+ :: NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var hs-var hs-var hs-var">+</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069896"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069896"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069899"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Pico -&gt; Pico -&gt; Pico
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069896"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-61"></span><span>    </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069893"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069893"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679069892"><span class="annot"><span class="annottext">- :: NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Num.html#-"><span class="hs-glyph hs-var hs-var hs-var hs-var">-</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069891"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069891"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069893"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Pico -&gt; Pico -&gt; Pico
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#-"><span class="hs-glyph hs-var">-</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069891"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-62"></span><span>    </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069888"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069888"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679069887"><span class="annot"><span class="annottext">* :: NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var hs-var hs-var hs-var">*</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069885"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069885"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069888"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Pico -&gt; Pico -&gt; Pico
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069885"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-63"></span><span>    </span><span id="local-6989586621679069882"><span class="annot"><span class="annottext">negate :: NominalDiffTime -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Num.html#negate"><span class="hs-identifier hs-var hs-var hs-var hs-var">negate</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069881"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069881"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Pico
forall a. Num a =&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#negate"><span class="hs-identifier hs-var">negate</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069881"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-64"></span><span>    </span><span id="local-6989586621679069878"><span class="annot"><span class="annottext">abs :: NominalDiffTime -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Num.html#abs"><span class="hs-identifier hs-var hs-var hs-var hs-var">abs</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069876"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069876"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Pico
forall a. Num a =&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#abs"><span class="hs-identifier hs-var">abs</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069876"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-65"></span><span>    </span><span id="local-6989586621679069873"><span class="annot"><span class="annottext">signum :: NominalDiffTime -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Num.html#signum"><span class="hs-identifier hs-var hs-var hs-var hs-var">signum</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069871"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069871"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Pico
forall a. Num a =&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#signum"><span class="hs-identifier hs-var">signum</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069871"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-66"></span><span>    </span><span id="local-6989586621679069868"><span class="annot"><span class="annottext">fromInteger :: Integer -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Num.html#fromInteger"><span class="hs-identifier hs-var hs-var hs-var hs-var">fromInteger</span></a></span></span><span> </span><span id="local-6989586621679069867"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679069867"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Pico
forall a. Num a =&gt; Integer -&gt; a
</span><a href="../../base/src/GHC.Num.html#fromInteger"><span class="hs-identifier hs-var">fromInteger</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679069867"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-67"></span><span>
</span><span id="line-68"></span><span class="hs-comment">-- necessary because H98 doesn't have &quot;cunning newtype&quot; derivation</span><span>
</span><span id="line-69"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../base/src/GHC.Real.html#Real"><span class="hs-identifier hs-type">Real</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-70"></span><span>    </span><span id="local-6989586621679069856"><span class="annot"><span class="annottext">toRational :: NominalDiffTime -&gt; Rational
</span><a href="../../base/src/GHC.Real.html#toRational"><span class="hs-identifier hs-var hs-var hs-var hs-var">toRational</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069855"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069855"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; Rational
forall a. Real a =&gt; a -&gt; Rational
</span><a href="../../base/src/GHC.Real.html#toRational"><span class="hs-identifier hs-var">toRational</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069855"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-71"></span><span>
</span><span id="line-72"></span><span class="hs-comment">-- necessary because H98 doesn't have &quot;cunning newtype&quot; derivation</span><span>
</span><span id="line-73"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../base/src/GHC.Real.html#Fractional"><span class="hs-identifier hs-type">Fractional</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-74"></span><span>    </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069844"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069844"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679069843"><span class="annot"><span class="annottext">/ :: NominalDiffTime -&gt; NominalDiffTime -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Real.html#%2F"><span class="hs-operator hs-var hs-var hs-var hs-var">/</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069841"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069841"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069844"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Pico -&gt; Pico -&gt; Pico
forall a. Fractional a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#%2F"><span class="hs-operator hs-var">/</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069841"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-75"></span><span>    </span><span id="local-6989586621679069838"><span class="annot"><span class="annottext">recip :: NominalDiffTime -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Real.html#recip"><span class="hs-identifier hs-var hs-var hs-var hs-var">recip</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069836"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069836"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico -&gt; Pico
forall a. Fractional a =&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#recip"><span class="hs-identifier hs-var">recip</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069836"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-76"></span><span>    </span><span id="local-6989586621679069833"><span class="annot"><span class="annottext">fromRational :: Rational -&gt; NominalDiffTime
</span><a href="../../base/src/GHC.Real.html#fromRational"><span class="hs-identifier hs-var hs-var hs-var hs-var">fromRational</span></a></span></span><span> </span><span id="local-6989586621679069832"><span class="annot"><span class="annottext">Rational
</span><a href="#local-6989586621679069832"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Rational -&gt; Pico
forall a. Fractional a =&gt; Rational -&gt; a
</span><a href="../../base/src/GHC.Real.html#fromRational"><span class="hs-identifier hs-var">fromRational</span></a></span><span> </span><span class="annot"><span class="annottext">Rational
</span><a href="#local-6989586621679069832"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-77"></span><span>
</span><span id="line-78"></span><span class="hs-comment">-- necessary because H98 doesn't have &quot;cunning newtype&quot; derivation</span><span>
</span><span id="line-79"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../base/src/GHC.Real.html#RealFrac"><span class="hs-identifier hs-type">RealFrac</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-80"></span><span>    </span><span id="local-6989586621679069819"><span class="annot"><span class="annottext">properFraction :: forall b. Integral b =&gt; NominalDiffTime -&gt; (b, NominalDiffTime)
</span><a href="../../base/src/GHC.Real.html#properFraction"><span class="hs-identifier hs-var hs-var hs-var hs-var">properFraction</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069817"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069817"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679069816"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Pico -&gt; NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-var">MkNominalDiffTime</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069815"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-81"></span><span>        </span><span class="hs-special">(</span><span id="local-6989586621679069816"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679069816"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679069815"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069815"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; (b, Pico)
forall a b. (RealFrac a, Integral b) =&gt; a -&gt; (b, a)
</span><a href="../../base/src/GHC.Real.html#properFraction"><span class="hs-identifier hs-var">properFraction</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069817"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-82"></span><span>    </span><span id="local-6989586621679069806"><span class="annot"><span class="annottext">truncate :: forall b. Integral b =&gt; NominalDiffTime -&gt; b
</span><a href="../../base/src/GHC.Real.html#truncate"><span class="hs-identifier hs-var hs-var hs-var hs-var">truncate</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069804"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069804"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; b
forall a b. (RealFrac a, Integral b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#truncate"><span class="hs-identifier hs-var">truncate</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069804"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-83"></span><span>    </span><span id="local-6989586621679069799"><span class="annot"><span class="annottext">round :: forall b. Integral b =&gt; NominalDiffTime -&gt; b
</span><a href="../../base/src/GHC.Real.html#round"><span class="hs-identifier hs-var hs-var hs-var hs-var">round</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069797"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069797"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; b
forall a b. (RealFrac a, Integral b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#round"><span class="hs-identifier hs-var">round</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069797"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-84"></span><span>    </span><span id="local-6989586621679069792"><span class="annot"><span class="annottext">ceiling :: forall b. Integral b =&gt; NominalDiffTime -&gt; b
</span><a href="../../base/src/GHC.Real.html#ceiling"><span class="hs-identifier hs-var hs-var hs-var hs-var">ceiling</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069790"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069790"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; b
forall a b. (RealFrac a, Integral b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#ceiling"><span class="hs-identifier hs-var">ceiling</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069790"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-85"></span><span>    </span><span id="local-6989586621679069785"><span class="annot"><span class="annottext">floor :: forall b. Integral b =&gt; NominalDiffTime -&gt; b
</span><a href="../../base/src/GHC.Real.html#floor"><span class="hs-identifier hs-var hs-var hs-var hs-var">floor</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-identifier hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069783"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069783"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Pico -&gt; b
forall a b. (RealFrac a, Integral b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#floor"><span class="hs-identifier hs-var">floor</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679069783"><span class="hs-identifier hs-var">a</span></a></span><span>
</span><span id="line-86"></span><span>
</span><span id="line-87"></span><span class="hs-pragma">{-# RULES</span><span>
</span><span id="line-88"></span><span class="annot"><span class="hs-pragma">&quot;realToFrac/DiffTime-&gt;NominalDiffTime&quot;</span></span><span>   </span><span class="annot"><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-pragma hs-type">realToFrac</span></a></span><span> </span><span class="hs-pragma">=</span><span> </span><span class="hs-pragma">\</span><span> </span><span id="local-6989586621679069782"><span class="annot"><a href="#local-6989586621679069782"><span class="hs-pragma hs-var">dt</span></a></span></span><span> </span><span class="hs-pragma">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-pragma hs-type">MkNominalDiffTime</span></a></span><span> </span><span class="hs-pragma">(</span><span class="annot"><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-pragma hs-type">realToFrac</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679069782"><span class="hs-pragma hs-type">dt</span></a></span><span class="hs-pragma">)</span><span>
</span><span id="line-89"></span><span class="annot"><span class="hs-pragma">&quot;realToFrac/NominalDiffTime-&gt;DiffTime&quot;</span></span><span>   </span><span class="annot"><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-pragma hs-type">realToFrac</span></a></span><span> </span><span class="hs-pragma">=</span><span> </span><span class="hs-pragma">\</span><span> </span><span class="hs-pragma">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-pragma hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069781"><span class="annot"><a href="#local-6989586621679069781"><span class="hs-pragma hs-var">ps</span></a></span></span><span class="hs-pragma">)</span><span> </span><span class="hs-pragma">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-pragma hs-type">realToFrac</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679069781"><span class="hs-pragma hs-type">ps</span></a></span><span>
</span><span id="line-90"></span><span>
</span><span id="line-91"></span><span class="annot"><span class="hs-pragma">&quot;realToFrac/NominalDiffTime-&gt;Pico&quot;</span></span><span>       </span><span class="annot"><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-pragma hs-type">realToFrac</span></a></span><span> </span><span class="hs-pragma">=</span><span> </span><span class="hs-pragma">\</span><span> </span><span class="hs-pragma">(</span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-pragma hs-type">MkNominalDiffTime</span></a></span><span> </span><span id="local-6989586621679069780"><span class="annot"><a href="#local-6989586621679069780"><span class="hs-pragma hs-var">ps</span></a></span></span><span class="hs-pragma">)</span><span> </span><span class="hs-pragma">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679069780"><span class="hs-pragma hs-type">ps</span></a></span><span>
</span><span id="line-92"></span><span class="annot"><span class="hs-pragma">&quot;realToFrac/Pico-&gt;NominalDiffTime&quot;</span></span><span>       </span><span class="annot"><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-pragma hs-type">realToFrac</span></a></span><span> </span><span class="hs-pragma">=</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#MkNominalDiffTime"><span class="hs-pragma hs-type">MkNominalDiffTime</span></a></span><span>
</span><span id="line-93"></span><span>  </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-94"></span><span>
</span><span id="line-95"></span><span class="hs-comment">-- | One day in 'NominalDiffTime'.</span><span>
</span><span id="line-96"></span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#nominalDay"><span class="hs-identifier hs-type">nominalDay</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span><span>
</span><span id="line-97"></span><span id="nominalDay"><span class="annot"><span class="annottext">nominalDay :: NominalDiffTime
</span><a href="Data.Time.Clock.Internal.NominalDiffTime.html#nominalDay"><span class="hs-identifier hs-var hs-var">nominalDay</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NominalDiffTime
</span><span class="hs-number">86400</span></span><span>
</span><span id="line-98"></span></pre></body></html>